--Pull control
--Pulls the MU with the smallest attribute value.
-- pulls the MU with the smallest attribute value
is
	blockList : table;
	i, n : integer;
	value, value2 : real
do
	blockList.create;
	?.fwBlockList(blockList);

	value := 1e300;  -- the highest possible value

	for i := blockList.yDim downto 1 loop
		value2 := blockList[1,i].attribute;
		if value2 < value then
			n := i;
			value := value2;
		end;
	next;

	?.unblock(blockList[1,n]);
end;
/*attribute:Enter the name of the attribute,
e.g. 'length', which pulls the MU.
*/